home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / Source / Configuration.Mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1995-10-06  |  2.2 KB  |  63 lines  |  [TEXT/.Ob4]
  1. Syntax10.Scn.Fnt
  2. Syntax12.Scn.Fnt
  3. MODULE Configuration;    (* jt  22.10.93 / js  28.10.93 *)(*<<<< MAH 20.7.94 *)
  4.  *    Executing the body of this module sets up the startup viewer configuration.
  5.  *    In addition to the standard config, this configuration sets up an 'intelligent'
  6.  *    scrolling log viewer.
  7.  *    This module might be changed and recompiled to fit your personal needs.
  8.  *    If the Configuration.obj file does not exist, a default configuration will be used.
  9.     IMPORT
  10.         Viewers, Oberon, TextFrames, MenuViewers, Display, Texts, Fonts, Directories;
  11.     CONST
  12.         StandardMenu = "System.Close System.Copy System.Grow Edit.Search Edit.Store ";
  13.         LogMenu = "System.Close System.Grow Edit.Locate Edit.Store ";
  14.         pinPos: LONGINT;
  15.     PROCEDURE HandleLog(F: Display.Frame; VAR M: Display.FrameMsg);
  16.         VAR p, org1, old: LONGINT; y: INTEGER; loc : TextFrames.Location;
  17.     BEGIN
  18.         TextFrames.Handle(F, M);
  19.         IF M IS TextFrames.UpdateMsg THEN
  20.             WITH M: TextFrames.UpdateMsg DO
  21.                 IF (M.text = Oberon.Log) & (M.id = TextFrames.insert) THEN
  22.                     WITH F: TextFrames.Frame DO
  23.                         p:=TextFrames.Pos (F, F.X+F.W, F.Y);
  24.                         old:=0;
  25.                         WHILE (p#old) & (p<M.text.len) DO
  26.                             y:=F.Y+F.H;
  27.                             TextFrames.LocateLine (F, y, loc);
  28.                             org1:=loc.org;
  29.                             REPEAT
  30.                                 DEC (y);
  31.                                 TextFrames.LocateLine (F, y, loc);
  32.                             UNTIL (loc.org#org1) OR (y=F.Y);
  33.                             IF y=F.Y THEN RETURN END;
  34.                             TextFrames.Show(F, loc.org);
  35.                             old:=p; p:=TextFrames.Pos (F, F.X+F.W, F.Y)
  36.                          END
  37.                     END
  38.                 END
  39.             END
  40.         END
  41.     END HandleLog; 
  42.     PROCEDURE OpenViewers;
  43.         VAR logV, toolV: Viewers.Viewer; X, Y: INTEGER; logger: Oberon.Task;
  44.     BEGIN
  45.         Oberon.AllocateSystemViewer(0, X, Y);
  46.         logV := MenuViewers.New(
  47.             TextFrames.NewMenu("System.Log", "^Log.Menu.Text"),
  48.             TextFrames.NewText(Oberon.Log, 0),
  49.             TextFrames.menuH,
  50.             X, Y);
  51.         logV.dsc.next.handle := HandleLog; 
  52.         Oberon.AllocateSystemViewer(0, X, Y);
  53.         toolV := MenuViewers.New(
  54.             TextFrames.NewMenu("System.Tool", "^System.Menu.Text"),
  55.             TextFrames.NewText(TextFrames.Text("System.Tool"), 0),
  56.             TextFrames.menuH,
  57.             X, Y + 50) ;
  58.     END OpenViewers;
  59. BEGIN
  60.     Directories.Change (":User");
  61.     OpenViewers
  62. END Configuration.
  63.